10 INPUT "Количество элементов ="; N%: IF N% < 1 THEN 10
20 DIM AR%(N%), R%(N%)
30 FOR I=1 TO N%
40 PRINT "Элемент №"; I;
50 INPUT AR%(I)
60 NEXT I
70 K% = 0
80 FOR I=1 TO N%
90 FOR J=1 TO K%
100 IF AR%(I) = R%(J) THEN 140
110 NEXT J
120 K% = K% + 1
130 R%(K%) = AR(I)
140 NEXT I
150 PRINT "Перечень элементов массива:"
160 FOR I=1 TO K%
170 PRINT R%(I);
180 NEXT I
190 END